﻿Namespace Magics

    Module mMagics

        Public Sub LoadSkillMappings(ByRef Conn As Connection)

            Dim ssql As String = "SELECT BYTE_KEY, BYTE_SET, BYTE_SKILL FROM TBL_SKILLMAPPINGS WHERE ID_CHARACTER=" & Conn.CharacterID & ";"
            Dim R As ArrayList = DB.GameDB.ExecuteQuery(ssql)

            If R Is Nothing Then

                If R.Count > 0 Then

                    For I As Integer = 0 To R.Count - 1

                        LoadSkillMapping(Conn, R(I))

                    Next

                End If

            End If

        End Sub

        Public Sub LoadSkillMapping(ByRef Conn As Connection, ByRef R As Collection)

            Dim S As PlayerSkillMapping

            S.BYTE_KEY = R("BYTE_KEY")
            S.BYTE_SET = R("BYTE_SET")
            S.BYTE_SKILL = R("BYTE_SKILL")

            Dim P As Packet

            P.PacketType = GamePacketType.AddPlayerSkill
            P.Username = Conn.Username
            
        End Sub


        Public Sub LoadMagicSkills(ByRef Conn As Connection)



        End Sub

        Public Sub LoadMagicSkill(ByRef Conn As Connection)



        End Sub

    End Module

End Namespace